﻿Public Class clsSysTime
    Public Structure SYSTEMTIME
        Public wYear As UInt16
        Public wMonth As UInt16
        Public wDayOfWeek As UInt16
        Public wDay As UInt16
        Public wHour As UInt16
        Public wMinute As UInt16
        Public wSecond As UInt16
        Public wMilliseconds As UInt16
    End Structure

    Declare Function GetSystemTime Lib "kernel32.dll" _
        (ByRef lpSystemTime As SYSTEMTIME) As UInt32

    Declare Function SetSystemTime Lib "kernel32.dll" _
        (ByRef lpSystemTime As SYSTEMTIME) As UInt32
End Class
